home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / dev / GUI / Triton / Programmer / AmigaOberon / Demo.MOD next >
Text File  |  1994-07-14  |  1KB  |  50 lines
  1. MODULE Demo; (* simple triton.library demo *)
  2.  
  3. IMPORT
  4.   D := Dos, T := Triton, S := SYSTEM, U := Utility, NoGuru;
  5.  
  6. VAR
  7.   application: T.AppPtr;
  8.   mainProject: T.ProjectPtr;
  9.  
  10. BEGIN
  11.   application := NIL;
  12.   mainProject := NIL;
  13.  
  14.   application := T.CreateAppTags (
  15.     T.caName, S.ADR("OberonDemoApp"),
  16.     T.caLongName, S.ADR("Oberon Demo Application"),
  17.     T.caVersion, S.ADR("0.0"),
  18.     U.done
  19.   );
  20.  
  21.   IF (application = NIL) THEN HALT(20); END;
  22.  
  23.   mainProject := T.OpenProjectTags (application,
  24.     T.wiID, 10,
  25.     T.wiTitle, S.ADR("Oberon Demo Application"),
  26.     T.wiBackfill, T.bfFillBackground,
  27.     T.wiPosition, T.wpCenterDisplay,
  28.     T.grVert, T.grAlign,
  29.       T.obSpace, T.stNormal,
  30.       T.grHoriz, T.grPropSpaces+T.grCenter,
  31.         T.obSpace, T.stNormal,
  32.         T.obText, 0,
  33.         T.atText, S.ADR("Demo Demo Demo"),
  34.         T.atFlags, T.tx3D,
  35.         T.obSpace, T.stNormal,
  36.       T.grEnd, 0,
  37.       T.obSpace, T.stNormal,
  38.     T.grEnd, 0,  
  39.     U.done
  40.   );
  41.  
  42.   IF (mainProject = NIL) THEN HALT(20); END;
  43.  
  44.   S.SETREG(0, T.Wait(application, 0));
  45.  
  46. CLOSE
  47.   IF (mainProject # NIL) THEN T.CloseProject (mainProject); END;
  48.   IF (application # NIL) THEN T.DeleteApp (application); END;
  49. END Demo.
  50.